home *** CD-ROM | disk | FTP | other *** search
/ Sports Illustrated for Kids - Awesome Athletes! / Sports Illustrated for Kids - Awesome Athletes!.iso / sd.dir / 00003_Bin Routines.ls < prev    next >
Encoding:
Text File  |  1996-04-18  |  3.0 KB  |  63 lines
  1. on initBin
  2.   global gSDBinGrid, gSDBinPiece
  3.   set gSDBinGrid to ["1": rect(0, 0, 61, 61), "2": rect(60, 0, 121, 61), "3": rect(0, 60, 61, 121), "4": rect(60, 60, 121, 121), "5": rect(0, 120, 61, 181), "6": rect(60, 120, 121, 181), "7": rect(0, 180, 61, 241), "8": rect(60, 180, 121, 241), "9": rect(0, 240, 61, 301), "10": rect(60, 240, 121, 301), "11": rect(0, 300, 61, 361), "12": rect(60, 300, 121, 361), "13": rect(0, 360, 61, 421), "14": rect(60, 360, 121, 421), "15": rect(60, 420, 121, 481), "16": rect(140, 419, 201, 480), "17": rect(200, 419, 261, 480), "18": rect(260, 419, 321, 480), "19": rect(320, 419, 381, 480), "20": rect(380, 419, 441, 480), "21": rect(440, 419, 501, 480), "22": rect(519, 0, 580, 61), "23": rect(579, 0, 640, 61), "24": rect(519, 60, 580, 121), "25": rect(579, 60, 640, 121), "26": rect(519, 120, 580, 181), "27": rect(579, 120, 640, 181), "28": rect(519, 180, 580, 241), "29": rect(579, 180, 640, 241), "30": rect(519, 240, 580, 301), "31": rect(579, 240, 640, 301), "32": rect(519, 300, 580, 361), "33": rect(579, 300, 640, 361), "34": rect(519, 360, 580, 421), "35": rect(579, 360, 640, 421), "36": rect(519, 420, 580, 481)]
  4.   set gSDBinPiece to ["1": EMPTY, "2": EMPTY, "3": EMPTY, "4": EMPTY, "5": EMPTY, "6": EMPTY, "7": EMPTY, "8": EMPTY, "9": EMPTY, "10": EMPTY, "11": EMPTY, "12": EMPTY, "13": EMPTY, "14": EMPTY, "15": EMPTY, "16": EMPTY, "17": EMPTY, "18": EMPTY, "19": EMPTY, "20": EMPTY, "21": EMPTY, "22": EMPTY, "23": EMPTY, "24": EMPTY, "25": EMPTY, "26": EMPTY, "27": EMPTY, "28": EMPTY, "29": EMPTY, "30": EMPTY, "31": EMPTY, "32": EMPTY, "33": EMPTY, "34": EMPTY, "35": EMPTY, "36": EMPTY]
  5. end
  6.  
  7. on BinLocation aPoint
  8.   repeat with vI = 1 to 36
  9.     set vRect to getProp(gSDBinGrid, vI)
  10.     if inside(aPoint, vRect) then
  11.       return vI
  12.     end if
  13.   end repeat
  14.   return 0
  15. end
  16.  
  17. on GetBinRect aPos
  18.   global gSDBinGrid
  19.   return getProp(gSDBinGrid, aPos)
  20. end
  21.  
  22. on GetBinAt aPos
  23.   global gSDBinPiece
  24.   put "DUCK" && getProp(gSDBinPiece, aPos)
  25.   return getProp(gSDBinPiece, aPos)
  26. end
  27.  
  28. on PutBinAt aPos, aPiece
  29.   global gSDBinPiece
  30.   set vOld to getProp(gSDBinPiece, aPos)
  31.   setaProp(gSDBinPiece, aPos, aPiece)
  32.   return vOld
  33. end
  34.  
  35. on PlaceBinPieces
  36.   global gSDBinPiece, gSDBinGrid
  37.   repeat with vI = 1 to 36
  38.     set vPiece to getProp(gSDBinPiece, vI)
  39.     if vPiece <> EMPTY then
  40.       set vRect to GetBinRect(vI)
  41.       set vSprite to NameToNum(vPiece)
  42.       set the castNum of sprite vSprite to cast ("S_" & vPiece)
  43.       set the locH of sprite vSprite to getAt(vRect, 1) + (the width of cast ("S_" & vPiece) / 2)
  44.       set the locV of sprite vSprite to getAt(vRect, 2) + (the height of cast ("S_" & vPiece) / 2)
  45.       set the visible of sprite vSprite to 1
  46.     end if
  47.   end repeat
  48. end
  49.  
  50. on fillBin
  51.   global gSDBinGrid, gSDBinPiece
  52.   repeat with vI = 1 to 6
  53.     repeat with vJ = 1 to 6
  54.       set vName to vI & "_" & vJ
  55.       set vLoc to string(random(36))
  56.       repeat while getaProp(gSDBinPiece, vLoc) <> EMPTY
  57.         set vLoc to string(random(36))
  58.       end repeat
  59.       setaProp(gSDBinPiece, vLoc, vName)
  60.     end repeat
  61.   end repeat
  62. end
  63.